﻿Imports Bussines.entity
Imports Bussines.Data
Public Class actasBL
    Dim actasDAL As New actasDAL
    Public Function insertarActa(ByVal BE As actasBE) As String
        Return actasDAL.InsertarActa(BE)
    End Function

    Public Function insertarActaModificacion(ByVal BE As actasBE) As String
        Dim BEAcuerdos As New List(Of actasBE.AcuerdosActa)
        Dim BEAcuNoConcluidos As New List(Of actasBE.AcuerdosActa)
        BEAcuerdos = BE.ListaAcuerdo
        For Each Acuerdo As actasBE.AcuerdosActa In BEAcuerdos
            If Acuerdo.estado <> "CONCLUIDO" And Acuerdo.estado <> "FINALIZADO" Then
                BEAcuNoConcluidos.Add(Acuerdo)
            End If
        Next
        BE.ListaAcuerdo = BEAcuNoConcluidos
        Return actasDAL.InsertarActa(BE)
    End Function

    Public Function listar_Problema(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_Problema(idActa)
    End Function

    Public Function listarActaSharepoint(ByVal idActa As Integer) As DataTable
        Return actasDAL.listarActaSharepoint(idActa)
    End Function

    Public Function listarAccesoAsistenteXActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listarAccesoAsistenteXActa(idActa)
    End Function

    Public Function listarAccesoDeConocimientoXActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listarAccesoDeConocimientoXActa(idActa)
    End Function


    Public Function listarAcuerdoSharepoint(ByVal idActa As Integer) As DataTable
        Return actasDAL.listarAcuerdoSharepoint(idActa)
    End Function

    Public Function listarAcuerdoSharepointModificarActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listarAcuerdoSharepointModificarActa(idActa)
    End Function


    Public Function listar_AgendaxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AgendaxActa(idActa)
    End Function

    Public Function listar_DeConocimientoxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_DeConocimientoxActa(idActa)
    End Function

    Public Function listar_AsistentesxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AsistentesxActa(idActa)
    End Function

    Public Function listar_AsistentesxActa_VerActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AsistentesxActa_VerActa(idActa)
    End Function


    Public Function listar_DesarrolloAgendaxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_DesarrolloAgendaxActa(idActa)
    End Function

    Public Function listar_AcuerdosxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AcuerdosxActa(idActa)
    End Function

    Public Function listar_AcuerdosxActa_ActaModificacion(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AcuerdosxActa_ActaModificacion(idActa)
    End Function

    Public Function listar_AcgendaPrelimxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AcgendaPrelimxActa(idActa)
    End Function

    Public Function listar_ActaxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_ActaxActa(idActa)
    End Function

    Public Function listar_ActaxActaImpresion(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_ActaxActaImpresion(idActa)
    End Function

    Public Function listar_AgrupacionResponsablesxActa(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_AgrupacionResponsablesxActa(idActa)
    End Function

    Public Function Existe_Acta(ByVal idActa As Integer) As Boolean
        Return actasDAL.Existe_Acta(idActa)
    End Function

    Public Function Actualizar_idShrepointAcuerdo(ByVal idActa As Integer, ByVal idAcuerdo As Integer, ByVal idSPAcuerdo As Integer) As String
        Return actasDAL.Actualizar_idShrepointAcuerdo(idActa, idAcuerdo, idSPAcuerdo)
    End Function

    Public Function Actualizar_idSharepointActa(ByVal idActa As Integer, ByVal idSPActa As Integer) As String
        Return actasDAL.Actualizar_idSharepointActa(idActa, idSPActa)
    End Function


    Public Function listar_AsistentesxActasCorreos(ByVal idActa As Integer)
        Return actasDAL.listar_AsistentesxActasCorreos(idActa)
    End Function

    Public Function listar_DeConocimientoxActasCorreos(ByVal idActa As Integer) As DataTable
        Return actasDAL.listar_DeConocimientoxActasCorreos(idActa)
    End Function

    Public Function listar_ModeradorSecretarioxActasCorreos(ByVal idActa As Integer)
        Return actasDAL.listar_ModeradorSecretarioxActasCorreos(idActa)
    End Function

    Public Function enviarMail_Publicaion_Acta(ByVal idActa As Integer)
        Return actasDAL.enviarMail_Publicaion_Acta(idActa)
    End Function

    Public Function listar_AcuerdosEnviarCorreos(ByVal idActa As Integer, ByVal Trab_id As String)
        Return actasDAL.listar_AcuerdosEnviarCorreos(idActa, Trab_id)
    End Function

    Public Function listar_AcuerdosConcluidosCorreos(ByVal idAcuerdoSP As Integer)
        Return actasDAL.listar_AcuerdosConcluidosCorreos(idAcuerdoSP)
    End Function

    Public Sub Actualizar_EstadoAcuerdo(ByVal idAcuerdo As Integer, ByVal idActa As Integer, ByVal Estado As String)
        actasDAL.Actualizar_EstadoAcuerdo(idAcuerdo, idActa, Estado)
    End Sub

    Public Function listar_AcuerdosPoderosa(ByVal UsuarioSimple As String, ByVal UsuarioActive As String) As DataTable
        Dim dtAcuerdo As New DataTable
        Dim dt As New DataTable
        dtAcuerdo = actasDAL.listar_AcuerdosActas(UsuarioActive)
        dt = actasDAL.listar_AcuerdosPoderosa(UsuarioSimple)
        For Each dr As DataRow In dt.Rows
            Dim dr1 As DataRow
            dr1 = dtAcuerdo.NewRow()
            dr1("Sistema") = dr("SISTE")
            dr1("DESC_SISTE") = (dr("DESCR_SISTE").ToString().Trim)
            dr1("numeroActa") = dr("NRODOC")
            dr1("detalle_acuerdo") = dr("ACUERDO_ACCION")
            dr1("Plazo") = dr("FECHA_ENTREGA")
            dr1("ESTADO") = dr("ESTADO")
            dtAcuerdo.Rows.Add(dr1)
        Next

        Return dtAcuerdo
    End Function

    Public Function ListarUsuariodirectory_PermisosXActa(ByVal idActa As Int32) As DataTable
        Return actasDAL.ListarUsuariodirectory_PermisosXActa(idActa)
    End Function

    Public Function GrupoModeradoresxActa(ByVal idActa As Int32) As String
        Return actasDAL.GrupoModeradoresxActa(idActa)
    End Function

    Public Sub EliminarFilas_DetalleActa(ByVal idActa As Int32)
        actasDAL.EliminarFilas_DetalleActa(idActa)
    End Sub

    Public Function ListarAsistentesPermisos(ByVal idActa As Integer) As DataTable
        Return actasDAL.ListarAsistentesPermisos(idActa)
    End Function

    Public Function enviarMail_Conclusion_Acuerdo(ByVal idActa As Integer)
        Return actasDAL.enviarMail_Conclusion_Acuerdo(idActa)
    End Function

    Public Function ListarProblemasPorActa(ByVal idActa As Integer) As DataTable
        Return New actasDAL().ListarProblemasPorActa(idActa)

    End Function
    Public Function RecuperarDenominacionActual() As String
        Return New actasDAL().RecuperarDenominacionActual().ToString
    End Function
End Class

